home *** CD-ROM | disk | FTP | other *** search
/ Building Homes of Our Own / Building Homes of our Own.iso / setup / data1.cab / Everything / working / houCons.dxr / interface_325_stairCaseDisplay behave.ls < prev    next >
Encoding:
Text File  |  2002-09-25  |  1.2 KB  |  49 lines
  1. property mySprite, myListToDisplay, myType, myRegion, ancestor, tileNum, tileSprite
  2.  
  3. on beginSprite me
  4.   global gUserDataMan, gActorListMan
  5.   unRegisterSprite(gActorListMan, mySprite)
  6.   mySprite = me.spriteNum
  7.   myRegion = getCurRegion(gUserDataMan)
  8.   myType = #FloorPlanDisplay
  9.   myListToDisplay = findDisplayList(me)
  10.   ancestor = new(script("FloorPlanDisplayActions"), mySprite, myListToDisplay)
  11.   registerSprite(gActorListMan, mySprite)
  12. end
  13.  
  14. on setDisplay me, choiceNum
  15.   if voidp(tileSprite) then
  16.     tileSprite = sendAllSprites(#sendSpriteNum, #tileSprite)
  17.   end if
  18.   case choiceNum of
  19.     1, 2:
  20.       choiceNum = 1
  21.     3, 4:
  22.       choiceNum = 2
  23.   end case
  24.   newMember = "SD staircase" && choiceNum
  25.   set the member of sprite mySprite to member(newMember)
  26.   sendSprite(tileSprite, #setTile, newMember)
  27. end
  28.  
  29. on findDisplayList me
  30.   case the frameLabel of
  31.     "SD_Stair":
  32.       listToReturn = ["SD Staircase 1"]
  33.     "SD_Fire":
  34.       listToReturn = ["SD fireplace"]
  35.   end case
  36.   return listToReturn
  37. end
  38.  
  39. on endSprite me
  40.   global gActorListMan
  41.   unRegisterSprite(gActorListMan, mySprite)
  42. end
  43.  
  44. on sendTileName me, aType
  45.   if aType = myType then
  46.     return (the member of sprite mySprite).name
  47.   end if
  48. end
  49.